home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Updates⁄New / MemoNoteStack 4.0 / card_3883.txt < prev    next >
Encoding:
Text File  |  1988-03-06  |  7.9 KB  |  346 lines
  1. -- card: 3883 from stack: in.0
  2. -- bmap block id: 4492
  3. -- flags: 0000
  4. -- background id: 2781
  5. -- name: 
  6.  
  7.  
  8. -- part 27 (field)
  9. -- low flags: 00
  10. -- high flags: 4007
  11. -- rect: left=211 top=106 right=186 bottom=438
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Note 27
  20. ----- HyperTalk script -----
  21. on Perform
  22.   -- hide Menubar
  23.   --show menubar
  24.   put "YAY! Click the Mouse to Stop Me!"
  25.   wait 30
  26.   repeat until the mouse is down
  27.     flash 2
  28.     beep
  29.   end repeat
  30.   Put "Booooo!"
  31. end perform -- **See Note Below
  32. wait 30
  33. Beep 4
  34.  
  35.  
  36. end Perform
  37. on closefield
  38.   send DoMeCloseField
  39. end closefield
  40. on MouseDown
  41.   send NoteFieldMouseDown
  42. end MouseDown
  43.  
  44.  
  45.  
  46. -- part 28 (button)
  47. -- low flags: 00
  48. -- high flags: C002
  49. -- rect: left=211 top=88 right=106 bottom=302
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Do Me Note
  58. ----- HyperTalk script -----
  59. *DoMeNoteButtonScript*4.0-- 23Feb1988
  60. on MouseDown
  61.   global gSelection
  62.   put selection into gSelection
  63.   pass mousedown
  64. end MouseDown
  65.  
  66. on MouseUp
  67.   send DoMeMouseUp
  68. end MouseUp
  69.  
  70. ****
  71. Do Me Notes‚Ñ¢ ¬©1988
  72. Interactive Fields from MemoNotes
  73. ****This note created 2/23/88
  74. MemoNotes‚Ñ¢ Hypernote system
  75. ¬©1988 PeterFraterdeus
  76. CIS 73306,2703
  77. ShareWare-$15. to: Alphabets, Inc.
  78. 804 Dempster St./ Evanston, IL. 60202
  79.  
  80.  
  81.  
  82. -- part 29 (button)
  83. -- low flags: 00
  84. -- high flags: 4002
  85. -- rect: left=421 top=186 right=203 bottom=438
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 1018 / 1018
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Grow
  94. ----- HyperTalk script -----
  95. NoteGrowButton
  96. **
  97. on mousedown
  98.   send NoteGrowMouseDown
  99. end mousedown
  100. ***
  101. on mouseup
  102.   send NoteGrowMouseUp
  103. end mouseUp
  104. ****
  105. on showGrow
  106.   send showGrowButton
  107. end showGrow
  108.  
  109. MemoNotes‚Ñ¢ Hypernote system
  110. ¬©1988 PeterFraterdeus
  111. CIS 73306,2703
  112. ShareWare-$15. to: Alphabets, Inc.
  113. 804 Dempster St./ Evanston, IL. 60202
  114.  
  115.  
  116.  
  117. -- part 33 (button)
  118. -- low flags: 00
  119. -- high flags: A002
  120. -- rect: left=48 top=200 right=219 bottom=189
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: More on MemoNotes
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   go first
  132. end mouseUp
  133.  
  134.  
  135.  
  136.  
  137. -- part 34 (button)
  138. -- low flags: 80
  139. -- high flags: A002
  140. -- rect: left=48 top=224 right=243 bottom=189
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: More on Install
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   go to card id 2271
  152. end mouseUp
  153.  
  154.  
  155.  
  156.  
  157. -- part 45 (button)
  158. -- low flags: 00
  159. -- high flags: A002
  160. -- rect: left=48 top=176 right=195 bottom=189
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: MemoNote Settings
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   go to card id 4731
  172. end mouseUp
  173.  
  174.  
  175.  
  176.  
  177. -- part 46 (button)
  178. -- low flags: 00
  179. -- high flags: A002
  180. -- rect: left=48 top=224 right=243 bottom=189
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: More on Install
  189. ----- HyperTalk script -----
  190. on mouseUp
  191.   go to card id 2271
  192. end mouseUp
  193.  
  194.  
  195.  
  196.  
  197. -- part 31 (button)
  198. -- low flags: 00
  199. -- high flags: C002
  200. -- rect: left=212 top=190 right=208 bottom=283
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 1
  204. -- font id: 0
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name: Note
  209. ----- HyperTalk script -----
  210. *NoteButtonScript*4.0
  211. on mouseup
  212.   send NoteButtonMouseUp
  213. end MouseUp
  214.  
  215. ****This note created 2/23/88
  216. MemoNotes‚Ñ¢ Hypernote system
  217. ¬©1988 PeterFraterdeus
  218. CIS 73306,2703
  219. ShareWare-$15. to: Alphabets, Inc.
  220. 804 Dempster St./ Evanston, IL. 60202
  221.  
  222.  
  223.  
  224. -- part 30 (field)
  225. -- low flags: 00
  226. -- high flags: 4007
  227. -- rect: left=211 top=207 right=269 bottom=438
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 0
  231. -- font id: 3
  232. -- text size: 10
  233. -- style flags: 0
  234. -- line height: 14
  235. -- part name: Note 30
  236.  
  237.  
  238. -- part 32 (button)
  239. -- low flags: 00
  240. -- high flags: 4002
  241. -- rect: left=421 top=269 right=286 bottom=438
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 1018 / 1018
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: Grow
  250. ----- HyperTalk script -----
  251. NoteGrowButton
  252. **
  253. on mousedown
  254.   send NoteGrowMouseDown
  255. end mousedown
  256. ***
  257. on mouseup
  258.   send NoteGrowMouseUp
  259. end mouseUp
  260. ****
  261. on showGrow
  262.   send showGrowButton
  263. end showGrow
  264.  
  265. MemoNotes‚Ñ¢ Hypernote system
  266. ¬©1988 PeterFraterdeus
  267. CIS 73306,2703
  268. ShareWare-$15. to: Alphabets, Inc.
  269. 804 Dempster St./ Evanston, IL. 60202
  270.  
  271.  
  272.  
  273. -- part 50 (button)
  274. -- low flags: 00
  275. -- high flags: 2000
  276. -- rect: left=437 top=253 right=269 bottom=454
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 1
  280. -- font id: 0
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: Zoom Field
  285. ----- HyperTalk script -----
  286. on mouseUp
  287.   global dragRect,ScreenRect,ZoomRect,zoomCount
  288.   put "47,77,438,269" into zoomrect
  289.   put "211,207,438,269" into OrigRect
  290.   if zoomcount =0 then
  291.     put 1 into zoomcount
  292.     set the rect of card field "note 30" to zoomRect
  293.   else
  294.     set the rect of card field "note 30" to OrigRect
  295.     put 0 into zoomcount
  296.   end if
  297. end mouseUp
  298.  
  299.  
  300.  
  301. -- part contents for card part 27
  302. ----- text -----
  303. -- hide Menubar
  304. --show menubar
  305. put "YAY! Click the Mouse to Stop Me!"
  306. wait 30
  307. repeat until the mouse is down
  308.     flash 2
  309.     beep 
  310. end repeat
  311. Put "Booooo!"
  312. end perform -- **See Note Below
  313. wait 30
  314. Beep 4
  315.  
  316.  
  317.  
  318. -- part contents for card part 30
  319. ----- text -----
  320. Do Me Note‚Ñ¢ is an extension of MemoNotes which creates an interactive Hypertalk Field.
  321. The whole field is interpreted unless there is an active Selection, which is then performed as a separate script. (Tutorial Follows‚Ķ)
  322.  
  323. Normally, the DoMeNote‚Ñ¢ behaves like a MemoNote, only performing its script when the note button is clicked with the CommandKey DOWN.
  324. Try Command-Clicking on the DoMeNote Button above.  Click the Mouse to stop the fireworks!
  325. Notice that the "Beep 5" at the end is never executed. The "end Perform" just above it "seals" the Perform script, ending its execution. Now type 
  326. ‚Äò--‚Äô (dash,dash) in front of the ‚Äúend perform‚Äù, and cmd-click the DoMe Button again. The dashes ‚Äúcomment-out‚Äù the end, allowing the script to flow through.
  327. Finally, scroll back to the top of the DoMe Field, and select the first line after the dashes. Cmd-Click on the DoMe Button.
  328. Now do the same on the Second Line‚Ķ
  329. Now select the next 2 words in this text, starting just here > hide Menubar < and cmdClick on the DoMe Button above‚Ķ or any DoMe button! The selection can be in any field, or in the Message box!
  330.   I hope you‚Äôll find DoMeNotes‚Ñ¢ as useful as I have! Please let me know, and if you find it useful enough, support the shareware ideal by registering your use of MemoNotes. You'll be supporting the further development of ideas like this one, and will be entered into our mailing list, and will possibly receive a sample issue of MiceType, our Quarterly Journal of Macintosh Typography and Design, as well as other good stuff.
  331.  
  332.  
  333. The Do Me Note is made by Option-clicking while choosing the location of the new Note.
  334.  
  335. Do Me Notes‚Ñ¢ ¬©1988
  336. Interactive Fields from MemoNotes
  337. MemoNotes‚Ñ¢ Hypernote system
  338. ¬©1988 PeterFraterdeus
  339. CIS 73306,2703
  340. ShareWare-$20. to: Alphabets, Inc.
  341. Box 5448/ Evanston, IL. 60204-5448
  342.  
  343.  
  344. -- part contents for background part 31
  345. ----- text -----
  346. Version 4.1.1